3.1.80 \(\int x^7 (d-c^2 d x^2)^{3/2} (a+b \text {arccosh}(c x)) \, dx\) [80]

3.1.80.1 Optimal result
3.1.80.2 Mathematica [A] (verified)
3.1.80.3 Rubi [A] (verified)
3.1.80.4 Maple [B] (verified)
3.1.80.5 Fricas [A] (verification not implemented)
3.1.80.6 Sympy [F(-1)]
3.1.80.7 Maxima [A] (verification not implemented)
3.1.80.8 Giac [F(-2)]
3.1.80.9 Mupad [F(-1)]

3.1.80.1 Optimal result

Integrand size = 27, antiderivative size = 399 \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=\frac {16 b d x \sqrt {d-c^2 d x^2}}{1155 c^7 \sqrt {-1+c x} \sqrt {1+c x}}+\frac {8 b d x^3 \sqrt {d-c^2 d x^2}}{3465 c^5 \sqrt {-1+c x} \sqrt {1+c x}}+\frac {2 b d x^5 \sqrt {d-c^2 d x^2}}{1925 c^3 \sqrt {-1+c x} \sqrt {1+c x}}+\frac {b d x^7 \sqrt {d-c^2 d x^2}}{1617 c \sqrt {-1+c x} \sqrt {1+c x}}-\frac {4 b c d x^9 \sqrt {d-c^2 d x^2}}{297 \sqrt {-1+c x} \sqrt {1+c x}}+\frac {b c^3 d x^{11} \sqrt {d-c^2 d x^2}}{121 \sqrt {-1+c x} \sqrt {1+c x}}-\frac {\left (d-c^2 d x^2\right )^{5/2} (a+b \text {arccosh}(c x))}{5 c^8 d}+\frac {3 \left (d-c^2 d x^2\right )^{7/2} (a+b \text {arccosh}(c x))}{7 c^8 d^2}-\frac {\left (d-c^2 d x^2\right )^{9/2} (a+b \text {arccosh}(c x))}{3 c^8 d^3}+\frac {\left (d-c^2 d x^2\right )^{11/2} (a+b \text {arccosh}(c x))}{11 c^8 d^4} \]

output
-1/5*(-c^2*d*x^2+d)^(5/2)*(a+b*arccosh(c*x))/c^8/d+3/7*(-c^2*d*x^2+d)^(7/2 
)*(a+b*arccosh(c*x))/c^8/d^2-1/3*(-c^2*d*x^2+d)^(9/2)*(a+b*arccosh(c*x))/c 
^8/d^3+1/11*(-c^2*d*x^2+d)^(11/2)*(a+b*arccosh(c*x))/c^8/d^4+16/1155*b*d*x 
*(-c^2*d*x^2+d)^(1/2)/c^7/(c*x-1)^(1/2)/(c*x+1)^(1/2)+8/3465*b*d*x^3*(-c^2 
*d*x^2+d)^(1/2)/c^5/(c*x-1)^(1/2)/(c*x+1)^(1/2)+2/1925*b*d*x^5*(-c^2*d*x^2 
+d)^(1/2)/c^3/(c*x-1)^(1/2)/(c*x+1)^(1/2)+1/1617*b*d*x^7*(-c^2*d*x^2+d)^(1 
/2)/c/(c*x-1)^(1/2)/(c*x+1)^(1/2)-4/297*b*c*d*x^9*(-c^2*d*x^2+d)^(1/2)/(c* 
x-1)^(1/2)/(c*x+1)^(1/2)+1/121*b*c^3*d*x^11*(-c^2*d*x^2+d)^(1/2)/(c*x-1)^( 
1/2)/(c*x+1)^(1/2)
 
3.1.80.2 Mathematica [A] (verified)

Time = 0.18 (sec) , antiderivative size = 209, normalized size of antiderivative = 0.52 \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=-\frac {d \sqrt {d-c^2 d x^2} \left (3465 a \sqrt {-1+c x} \sqrt {1+c x} \left (-1+c^2 x^2\right )^2 \left (16+40 c^2 x^2+70 c^4 x^4+105 c^6 x^6\right )-b c x \left (55440+9240 c^2 x^2+4158 c^4 x^4+2475 c^6 x^6-53900 c^8 x^8+33075 c^{10} x^{10}\right )+3465 b \sqrt {-1+c x} \sqrt {1+c x} \left (-1+c^2 x^2\right )^2 \left (16+40 c^2 x^2+70 c^4 x^4+105 c^6 x^6\right ) \text {arccosh}(c x)\right )}{4002075 c^8 \sqrt {-1+c x} \sqrt {1+c x}} \]

input
Integrate[x^7*(d - c^2*d*x^2)^(3/2)*(a + b*ArcCosh[c*x]),x]
 
output
-1/4002075*(d*Sqrt[d - c^2*d*x^2]*(3465*a*Sqrt[-1 + c*x]*Sqrt[1 + c*x]*(-1 
 + c^2*x^2)^2*(16 + 40*c^2*x^2 + 70*c^4*x^4 + 105*c^6*x^6) - b*c*x*(55440 
+ 9240*c^2*x^2 + 4158*c^4*x^4 + 2475*c^6*x^6 - 53900*c^8*x^8 + 33075*c^10* 
x^10) + 3465*b*Sqrt[-1 + c*x]*Sqrt[1 + c*x]*(-1 + c^2*x^2)^2*(16 + 40*c^2* 
x^2 + 70*c^4*x^4 + 105*c^6*x^6)*ArcCosh[c*x]))/(c^8*Sqrt[-1 + c*x]*Sqrt[1 
+ c*x])
 
3.1.80.3 Rubi [A] (verified)

Time = 0.67 (sec) , antiderivative size = 229, normalized size of antiderivative = 0.57, number of steps used = 4, number of rules used = 4, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.148, Rules used = {6337, 27, 2341, 2009}

Below are the steps used by Rubi to obtain the solution. The rule number used for the transformation is given above next to the arrow. The rules definitions used are listed below.

\(\displaystyle \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx\)

\(\Big \downarrow \) 6337

\(\displaystyle -\frac {b c \sqrt {d-c^2 d x^2} \int -\frac {d \left (1-c^2 x^2\right )^2 \left (105 c^6 x^6+70 c^4 x^4+40 c^2 x^2+16\right )}{1155 c^8}dx}{\sqrt {c x-1} \sqrt {c x+1}}+\frac {\left (d-c^2 d x^2\right )^{11/2} (a+b \text {arccosh}(c x))}{11 c^8 d^4}-\frac {\left (d-c^2 d x^2\right )^{9/2} (a+b \text {arccosh}(c x))}{3 c^8 d^3}+\frac {3 \left (d-c^2 d x^2\right )^{7/2} (a+b \text {arccosh}(c x))}{7 c^8 d^2}-\frac {\left (d-c^2 d x^2\right )^{5/2} (a+b \text {arccosh}(c x))}{5 c^8 d}\)

\(\Big \downarrow \) 27

\(\displaystyle \frac {b d \sqrt {d-c^2 d x^2} \int \left (1-c^2 x^2\right )^2 \left (105 c^6 x^6+70 c^4 x^4+40 c^2 x^2+16\right )dx}{1155 c^7 \sqrt {c x-1} \sqrt {c x+1}}+\frac {\left (d-c^2 d x^2\right )^{11/2} (a+b \text {arccosh}(c x))}{11 c^8 d^4}-\frac {\left (d-c^2 d x^2\right )^{9/2} (a+b \text {arccosh}(c x))}{3 c^8 d^3}+\frac {3 \left (d-c^2 d x^2\right )^{7/2} (a+b \text {arccosh}(c x))}{7 c^8 d^2}-\frac {\left (d-c^2 d x^2\right )^{5/2} (a+b \text {arccosh}(c x))}{5 c^8 d}\)

\(\Big \downarrow \) 2341

\(\displaystyle \frac {b d \sqrt {d-c^2 d x^2} \int \left (105 c^{10} x^{10}-140 c^8 x^8+5 c^6 x^6+6 c^4 x^4+8 c^2 x^2+16\right )dx}{1155 c^7 \sqrt {c x-1} \sqrt {c x+1}}+\frac {\left (d-c^2 d x^2\right )^{11/2} (a+b \text {arccosh}(c x))}{11 c^8 d^4}-\frac {\left (d-c^2 d x^2\right )^{9/2} (a+b \text {arccosh}(c x))}{3 c^8 d^3}+\frac {3 \left (d-c^2 d x^2\right )^{7/2} (a+b \text {arccosh}(c x))}{7 c^8 d^2}-\frac {\left (d-c^2 d x^2\right )^{5/2} (a+b \text {arccosh}(c x))}{5 c^8 d}\)

\(\Big \downarrow \) 2009

\(\displaystyle \frac {\left (d-c^2 d x^2\right )^{11/2} (a+b \text {arccosh}(c x))}{11 c^8 d^4}-\frac {\left (d-c^2 d x^2\right )^{9/2} (a+b \text {arccosh}(c x))}{3 c^8 d^3}+\frac {3 \left (d-c^2 d x^2\right )^{7/2} (a+b \text {arccosh}(c x))}{7 c^8 d^2}-\frac {\left (d-c^2 d x^2\right )^{5/2} (a+b \text {arccosh}(c x))}{5 c^8 d}+\frac {b d \left (\frac {105 c^{10} x^{11}}{11}-\frac {140 c^8 x^9}{9}+\frac {5 c^6 x^7}{7}+\frac {6 c^4 x^5}{5}+\frac {8 c^2 x^3}{3}+16 x\right ) \sqrt {d-c^2 d x^2}}{1155 c^7 \sqrt {c x-1} \sqrt {c x+1}}\)

input
Int[x^7*(d - c^2*d*x^2)^(3/2)*(a + b*ArcCosh[c*x]),x]
 
output
(b*d*Sqrt[d - c^2*d*x^2]*(16*x + (8*c^2*x^3)/3 + (6*c^4*x^5)/5 + (5*c^6*x^ 
7)/7 - (140*c^8*x^9)/9 + (105*c^10*x^11)/11))/(1155*c^7*Sqrt[-1 + c*x]*Sqr 
t[1 + c*x]) - ((d - c^2*d*x^2)^(5/2)*(a + b*ArcCosh[c*x]))/(5*c^8*d) + (3* 
(d - c^2*d*x^2)^(7/2)*(a + b*ArcCosh[c*x]))/(7*c^8*d^2) - ((d - c^2*d*x^2) 
^(9/2)*(a + b*ArcCosh[c*x]))/(3*c^8*d^3) + ((d - c^2*d*x^2)^(11/2)*(a + b* 
ArcCosh[c*x]))/(11*c^8*d^4)
 

3.1.80.3.1 Defintions of rubi rules used

rule 27
Int[(a_)*(Fx_), x_Symbol] :> Simp[a   Int[Fx, x], x] /; FreeQ[a, x] &&  !Ma 
tchQ[Fx, (b_)*(Gx_) /; FreeQ[b, x]]
 

rule 2009
Int[u_, x_Symbol] :> Simp[IntSum[u, x], x] /; SumQ[u]
 

rule 2341
Int[(Pq_)*((a_) + (b_.)*(x_)^2)^(p_.), x_Symbol] :> Int[ExpandIntegrand[Pq* 
(a + b*x^2)^p, x], x] /; FreeQ[{a, b}, x] && PolyQ[Pq, x] && IGtQ[p, -2]
 

rule 6337
Int[((a_.) + ArcCosh[(c_.)*(x_)]*(b_.))*(x_)^(m_)*((d_) + (e_.)*(x_)^2)^(p_ 
), x_Symbol] :> With[{u = IntHide[x^m*(d + e*x^2)^p, x]}, Simp[(a + b*ArcCo 
sh[c*x])   u, x] - Simp[b*c*Simp[Sqrt[d + e*x^2]/(Sqrt[1 + c*x]*Sqrt[-1 + c 
*x])]   Int[SimplifyIntegrand[u/Sqrt[d + e*x^2], x], x], x]] /; FreeQ[{a, b 
, c, d, e}, x] && EqQ[c^2*d + e, 0] && IntegerQ[p - 1/2] && NeQ[p, -2^(-1)] 
 && (IGtQ[(m + 1)/2, 0] || ILtQ[(m + 2*p + 3)/2, 0])
 
3.1.80.4 Maple [B] (verified)

Leaf count of result is larger than twice the leaf count of optimal. \(1845\) vs. \(2(335)=670\).

Time = 0.89 (sec) , antiderivative size = 1846, normalized size of antiderivative = 4.63

method result size
default \(\text {Expression too large to display}\) \(1846\)
parts \(\text {Expression too large to display}\) \(1846\)

input
int(x^7*(-c^2*d*x^2+d)^(3/2)*(a+b*arccosh(c*x)),x,method=_RETURNVERBOSE)
 
output
a*(-1/11*x^6*(-c^2*d*x^2+d)^(5/2)/c^2/d+6/11/c^2*(-1/9*x^4*(-c^2*d*x^2+d)^ 
(5/2)/c^2/d+4/9/c^2*(-1/7*x^2*(-c^2*d*x^2+d)^(5/2)/c^2/d-2/35/d/c^4*(-c^2* 
d*x^2+d)^(5/2))))+b*(-1/247808*(-d*(c^2*x^2-1))^(1/2)*(1+4096*c^8*x^8+220* 
(c*x-1)^(1/2)*(c*x+1)^(1/2)*c^3*x^3+2816*(c*x+1)^(1/2)*(c*x-1)^(1/2)*x^7*c 
^7+620*c^4*x^4-61*c^2*x^2-11*(c*x-1)^(1/2)*(c*x+1)^(1/2)*c*x-1232*(c*x+1)^ 
(1/2)*(c*x-1)^(1/2)*c^5*x^5+1024*c^12*x^12-2352*c^6*x^6-3328*c^10*x^10+102 
4*(c*x+1)^(1/2)*(c*x-1)^(1/2)*x^11*c^11-2816*(c*x+1)^(1/2)*(c*x-1)^(1/2)*x 
^9*c^9)*(-1+11*arccosh(c*x))*d/(c*x+1)/c^8/(c*x-1)-1/55296*(-d*(c^2*x^2-1) 
)^(1/2)*(256*c^10*x^10-704*c^8*x^8+256*(c*x+1)^(1/2)*(c*x-1)^(1/2)*x^9*c^9 
+688*c^6*x^6-576*(c*x+1)^(1/2)*(c*x-1)^(1/2)*x^7*c^7-280*c^4*x^4+432*(c*x+ 
1)^(1/2)*(c*x-1)^(1/2)*c^5*x^5+41*c^2*x^2-120*(c*x-1)^(1/2)*(c*x+1)^(1/2)* 
c^3*x^3+9*(c*x-1)^(1/2)*(c*x+1)^(1/2)*c*x-1)*(-1+9*arccosh(c*x))*d/(c*x+1) 
/c^8/(c*x-1)+1/100352*(-d*(c^2*x^2-1))^(1/2)*(64*c^8*x^8-144*c^6*x^6+64*(c 
*x+1)^(1/2)*(c*x-1)^(1/2)*x^7*c^7+104*c^4*x^4-112*(c*x+1)^(1/2)*(c*x-1)^(1 
/2)*c^5*x^5-25*c^2*x^2+56*(c*x-1)^(1/2)*(c*x+1)^(1/2)*c^3*x^3-7*(c*x-1)^(1 
/2)*(c*x+1)^(1/2)*c*x+1)*(-1+7*arccosh(c*x))*d/(c*x+1)/c^8/(c*x-1)+11/5120 
0*(-d*(c^2*x^2-1))^(1/2)*(16*c^6*x^6-28*c^4*x^4+16*(c*x+1)^(1/2)*(c*x-1)^( 
1/2)*c^5*x^5+13*c^2*x^2-20*(c*x-1)^(1/2)*(c*x+1)^(1/2)*c^3*x^3+5*(c*x-1)^( 
1/2)*(c*x+1)^(1/2)*c*x-1)*(-1+5*arccosh(c*x))*d/(c*x+1)/c^8/(c*x-1)+1/3072 
*(-d*(c^2*x^2-1))^(1/2)*(4*c^4*x^4-5*c^2*x^2+4*(c*x-1)^(1/2)*(c*x+1)^(1...
 
3.1.80.5 Fricas [A] (verification not implemented)

Time = 0.26 (sec) , antiderivative size = 275, normalized size of antiderivative = 0.69 \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=-\frac {3465 \, {\left (105 \, b c^{12} d x^{12} - 245 \, b c^{10} d x^{10} + 145 \, b c^{8} d x^{8} + b c^{6} d x^{6} + 2 \, b c^{4} d x^{4} + 8 \, b c^{2} d x^{2} - 16 \, b d\right )} \sqrt {-c^{2} d x^{2} + d} \log \left (c x + \sqrt {c^{2} x^{2} - 1}\right ) - {\left (33075 \, b c^{11} d x^{11} - 53900 \, b c^{9} d x^{9} + 2475 \, b c^{7} d x^{7} + 4158 \, b c^{5} d x^{5} + 9240 \, b c^{3} d x^{3} + 55440 \, b c d x\right )} \sqrt {-c^{2} d x^{2} + d} \sqrt {c^{2} x^{2} - 1} + 3465 \, {\left (105 \, a c^{12} d x^{12} - 245 \, a c^{10} d x^{10} + 145 \, a c^{8} d x^{8} + a c^{6} d x^{6} + 2 \, a c^{4} d x^{4} + 8 \, a c^{2} d x^{2} - 16 \, a d\right )} \sqrt {-c^{2} d x^{2} + d}}{4002075 \, {\left (c^{10} x^{2} - c^{8}\right )}} \]

input
integrate(x^7*(-c^2*d*x^2+d)^(3/2)*(a+b*arccosh(c*x)),x, algorithm="fricas 
")
 
output
-1/4002075*(3465*(105*b*c^12*d*x^12 - 245*b*c^10*d*x^10 + 145*b*c^8*d*x^8 
+ b*c^6*d*x^6 + 2*b*c^4*d*x^4 + 8*b*c^2*d*x^2 - 16*b*d)*sqrt(-c^2*d*x^2 + 
d)*log(c*x + sqrt(c^2*x^2 - 1)) - (33075*b*c^11*d*x^11 - 53900*b*c^9*d*x^9 
 + 2475*b*c^7*d*x^7 + 4158*b*c^5*d*x^5 + 9240*b*c^3*d*x^3 + 55440*b*c*d*x) 
*sqrt(-c^2*d*x^2 + d)*sqrt(c^2*x^2 - 1) + 3465*(105*a*c^12*d*x^12 - 245*a* 
c^10*d*x^10 + 145*a*c^8*d*x^8 + a*c^6*d*x^6 + 2*a*c^4*d*x^4 + 8*a*c^2*d*x^ 
2 - 16*a*d)*sqrt(-c^2*d*x^2 + d))/(c^10*x^2 - c^8)
 
3.1.80.6 Sympy [F(-1)]

Timed out. \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=\text {Timed out} \]

input
integrate(x**7*(-c**2*d*x**2+d)**(3/2)*(a+b*acosh(c*x)),x)
 
output
Timed out
 
3.1.80.7 Maxima [A] (verification not implemented)

Time = 0.41 (sec) , antiderivative size = 285, normalized size of antiderivative = 0.71 \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=-\frac {1}{1155} \, {\left (\frac {105 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{6}}{c^{2} d} + \frac {70 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{4}}{c^{4} d} + \frac {40 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{2}}{c^{6} d} + \frac {16 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}}}{c^{8} d}\right )} b \operatorname {arcosh}\left (c x\right ) - \frac {1}{1155} \, {\left (\frac {105 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{6}}{c^{2} d} + \frac {70 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{4}}{c^{4} d} + \frac {40 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}} x^{2}}{c^{6} d} + \frac {16 \, {\left (-c^{2} d x^{2} + d\right )}^{\frac {5}{2}}}{c^{8} d}\right )} a + \frac {{\left (33075 \, c^{10} \sqrt {-d} d x^{11} - 53900 \, c^{8} \sqrt {-d} d x^{9} + 2475 \, c^{6} \sqrt {-d} d x^{7} + 4158 \, c^{4} \sqrt {-d} d x^{5} + 9240 \, c^{2} \sqrt {-d} d x^{3} + 55440 \, \sqrt {-d} d x\right )} b}{4002075 \, c^{7}} \]

input
integrate(x^7*(-c^2*d*x^2+d)^(3/2)*(a+b*arccosh(c*x)),x, algorithm="maxima 
")
 
output
-1/1155*(105*(-c^2*d*x^2 + d)^(5/2)*x^6/(c^2*d) + 70*(-c^2*d*x^2 + d)^(5/2 
)*x^4/(c^4*d) + 40*(-c^2*d*x^2 + d)^(5/2)*x^2/(c^6*d) + 16*(-c^2*d*x^2 + d 
)^(5/2)/(c^8*d))*b*arccosh(c*x) - 1/1155*(105*(-c^2*d*x^2 + d)^(5/2)*x^6/( 
c^2*d) + 70*(-c^2*d*x^2 + d)^(5/2)*x^4/(c^4*d) + 40*(-c^2*d*x^2 + d)^(5/2) 
*x^2/(c^6*d) + 16*(-c^2*d*x^2 + d)^(5/2)/(c^8*d))*a + 1/4002075*(33075*c^1 
0*sqrt(-d)*d*x^11 - 53900*c^8*sqrt(-d)*d*x^9 + 2475*c^6*sqrt(-d)*d*x^7 + 4 
158*c^4*sqrt(-d)*d*x^5 + 9240*c^2*sqrt(-d)*d*x^3 + 55440*sqrt(-d)*d*x)*b/c 
^7
 
3.1.80.8 Giac [F(-2)]

Exception generated. \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=\text {Exception raised: TypeError} \]

input
integrate(x^7*(-c^2*d*x^2+d)^(3/2)*(a+b*arccosh(c*x)),x, algorithm="giac")
 
output
Exception raised: TypeError >> an error occurred running a Giac command:IN 
PUT:sage2:=int(sage0,sageVARx):;OUTPUT:sym2poly/r2sym(const gen & e,const 
index_m & i,const vecteur & l) Error: Bad Argument Value
 
3.1.80.9 Mupad [F(-1)]

Timed out. \[ \int x^7 \left (d-c^2 d x^2\right )^{3/2} (a+b \text {arccosh}(c x)) \, dx=\int x^7\,\left (a+b\,\mathrm {acosh}\left (c\,x\right )\right )\,{\left (d-c^2\,d\,x^2\right )}^{3/2} \,d x \]

input
int(x^7*(a + b*acosh(c*x))*(d - c^2*d*x^2)^(3/2),x)
 
output
int(x^7*(a + b*acosh(c*x))*(d - c^2*d*x^2)^(3/2), x)